/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / term / tty-init.elc.z / tty-init.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 54 68 75 20 4a | 61 6e 20 32 32 20 31 34 |on Thu J|an 22 14|
|00000040| 3a 34 34 3a 33 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:44:38 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 78 65 | 6d 61 63 73 2d 32 30 2e |emacs/xe|macs-20.|
|00000090| 33 2f 6c 69 73 70 2f 74 | 65 72 6d 2f 74 74 79 2d |3/lisp/t|erm/tty-|
|000000a0| 69 6e 69 74 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |init.el.|;;; emac|
|000000b0| 73 20 76 65 72 73 69 6f | 6e 20 32 30 2e 33 20 22 |s versio|n 20.3 "|
|000000c0| 56 61 74 69 63 61 6e 20 | 43 69 74 79 22 20 58 45 |Vatican |City" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 74 74 79 2d 69 6e | (error |"`tty-in|
|000001f0| 69 74 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |it.el' w|as compi|
|00000200| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000210| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000220| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000230| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000240| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000250| 29 29 0a 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |))...(by|te-code |
|00000260| 22 c0 c1 21 ac 82 c2 11 | c1 0b 42 13 c2 87 22 20 |"..!....|..B..." |
|00000270| 5b 62 6f 75 6e 64 70 20 | 70 72 65 2d 74 74 79 2d |[boundp |pre-tty-|
|00000280| 77 69 6e 2d 69 6e 69 74 | 74 65 64 20 6e 69 6c 20 |win-init|ted nil |
|00000290| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|000002a0| 74 5d 20 32 29 0a 23 40 | 35 32 20 49 6e 69 74 69 |t] 2).#@|52 Initi|
|000002b0| 61 6c 69 7a 65 20 54 54 | 59 20 61 74 20 73 74 61 |alize TT|Y at sta|
|000002c0| 72 74 75 70 20 28 70 72 | 65 29 2e 20 20 44 6f 6e |rtup (pr|e).  Don|
|000002d0| 27 74 20 63 61 6c 6c 20 | 74 68 69 73 2e 1f 0a 28 |'t call |this...(|
|000002e0| 64 65 66 61 6c 69 61 73 | 20 27 69 6e 69 74 2d 70 |defalias| 'init-p|
|000002f0| 72 65 2d 74 74 79 2d 77 | 69 6e 20 23 5b 6e 69 6c |re-tty-w|in #[nil|
|00000300| 20 22 08 3f ad e3 c1 c2 | c3 c4 23 88 c1 c5 c6 c7 | ".?....|..#.....|
|00000310| 23 88 c1 c8 c9 ca 23 88 | c1 cb cc cd 23 88 c1 ce |#.....#.|....#...|
|00000320| cf d0 23 88 c1 d1 d2 d3 | 23 88 c1 d4 d5 d6 23 88 |..#.....|#.....#.|
|00000330| c1 d7 d8 d9 23 88 c1 da | db dc 23 88 c1 dd de df |....#...|..#.....|
|00000340| 23 88 c1 e0 e1 e2 23 88 | c1 e3 e4 e5 23 88 c1 e6 |#.....#.|....#...|
|00000350| e7 e8 23 88 c1 e9 ea eb | 23 88 c1 ec ed ee 23 88 |..#.....|#.....#.|
|00000360| c1 ef f0 f1 23 88 f2 89 | 10 87 22 20 5b 70 72 65 |....#...|.." [pre|
|00000370| 2d 74 74 79 2d 77 69 6e | 2d 69 6e 69 74 74 65 64 |-tty-win|-initted|
|00000380| 20 72 65 67 69 73 74 65 | 72 2d 74 74 79 2d 63 6f | registe|r-tty-co|
|00000390| 6c 6f 72 20 22 62 6c 61 | 63 6b 22 20 22 1b 5b 33 |lor "bla|ck" ".[3|
|000003a0| 30 6d 22 20 22 1b 5b 34 | 30 6d 22 20 22 72 65 64 |0m" ".[4|0m" "red|
|000003b0| 22 20 22 1b 5b 33 31 6d | 22 20 22 1b 5b 34 31 6d |" ".[31m|" ".[41m|
|000003c0| 22 20 22 67 72 65 65 6e | 22 20 22 1b 5b 33 32 6d |" "green|" ".[32m|
|000003d0| 22 20 22 1b 5b 34 32 6d | 22 20 22 79 65 6c 6c 6f |" ".[42m|" "yello|
|000003e0| 77 22 20 22 1b 5b 33 33 | 6d 22 20 22 1b 5b 34 33 |w" ".[33|m" ".[43|
|000003f0| 6d 22 20 22 62 6c 75 65 | 22 20 22 1b 5b 33 34 6d |m" "blue|" ".[34m|
|00000400| 22 20 22 1b 5b 34 34 6d | 22 20 22 6d 61 67 65 6e |" ".[44m|" "magen|
|00000410| 74 61 22 20 22 1b 5b 33 | 35 6d 22 20 22 1b 5b 34 |ta" ".[3|5m" ".[4|
|00000420| 35 6d 22 20 22 63 79 61 | 6e 22 20 22 1b 5b 33 36 |5m" "cya|n" ".[36|
|00000430| 6d 22 20 22 1b 5b 34 36 | 6d 22 20 22 77 68 69 74 |m" ".[46|m" "whit|
|00000440| 65 22 20 22 1b 5b 33 37 | 6d 22 20 22 1b 5b 34 37 |e" ".[37|m" ".[47|
|00000450| 6d 22 20 22 64 61 72 6b | 67 72 65 79 22 20 22 1b |m" "dark|grey" ".|
|00000460| 5b 31 3b 33 30 6d 22 20 | 22 1b 5b 31 3b 34 30 6d |[1;30m" |".[1;40m|
|00000470| 22 20 22 62 72 69 67 68 | 74 72 65 64 22 20 22 1b |" "brigh|tred" ".|
|00000480| 5b 31 3b 33 31 6d 22 20 | 22 1b 5b 31 3b 34 31 6d |[1;31m" |".[1;41m|
|00000490| 22 20 22 62 72 69 67 68 | 74 67 72 65 65 6e 22 20 |" "brigh|tgreen" |
|000004a0| 22 1b 5b 31 3b 33 32 6d | 22 20 22 1b 5b 31 3b 34 |".[1;32m|" ".[1;4|
|000004b0| 32 6d 22 20 22 62 72 69 | 67 68 74 79 65 6c 6c 6f |2m" "bri|ghtyello|
|000004c0| 77 22 20 22 1b 5b 31 3b | 33 33 6d 22 20 22 1b 5b |w" ".[1;|33m" ".[|
|000004d0| 31 3b 34 33 6d 22 20 22 | 62 72 69 67 68 74 62 6c |1;43m" "|brightbl|
|000004e0| 75 65 22 20 22 1b 5b 31 | 3b 33 34 6d 22 20 22 1b |ue" ".[1|;34m" ".|
|000004f0| 5b 31 3b 34 34 6d 22 20 | 22 62 72 69 67 68 74 6d |[1;44m" |"brightm|
|00000500| 61 67 65 6e 74 61 22 20 | 22 1b 5b 31 3b 33 35 6d |agenta" |".[1;35m|
|00000510| 22 20 22 1b 5b 31 3b 34 | 35 6d 22 20 22 62 72 69 |" ".[1;4|5m" "bri|
|00000520| 67 68 74 63 79 61 6e 22 | 20 22 1b 5b 31 3b 33 36 |ghtcyan"| ".[1;36|
|00000530| 6d 22 20 22 1b 5b 31 3b | 34 36 6d 22 20 22 62 72 |m" ".[1;|46m" "br|
|00000540| 69 67 68 74 77 68 69 74 | 65 22 20 22 1b 5b 31 3b |ightwhit|e" ".[1;|
|00000550| 33 37 6d 22 20 22 1b 5b | 31 3b 34 37 6d 22 20 74 |37m" ".[|1;47m" t|
|00000560| 5d 20 34 20 28 23 24 20 | 2e 20 36 38 33 29 5d 29 |] 4 (#$ |. 683)])|
|00000570| 0a 23 40 36 37 20 49 6e | 69 74 69 61 6c 69 7a 65 |.#@67 In|itialize|
|00000580| 20 54 54 59 20 61 74 20 | 63 6f 6e 73 6f 6c 65 20 | TTY at |console |
|00000590| 63 72 65 61 74 69 6f 6e | 20 74 69 6d 65 20 28 70 |creation| time (p|
|000005a0| 6f 73 74 29 2e 20 20 44 | 6f 6e 27 74 20 63 61 6c |ost).  D|on't cal|
|000005b0| 6c 20 74 68 69 73 2e 1f | 0a 28 64 65 66 61 6c 69 |l this..|.(defali|
|000005c0| 61 73 20 27 69 6e 69 74 | 2d 70 6f 73 74 2d 74 74 |as 'init|-post-tt|
|000005d0| 79 2d 77 69 6e 20 23 5b | 28 63 6f 6e 73 6f 6c 65 |y-win #[|(console|
|000005e0| 29 20 22 08 ad 8c c1 20 | 1a c3 8e c4 0d 21 88 c6 |) ".... |.....!..|
|000005f0| 20 2a 87 22 20 5b 69 6e | 69 74 2d 66 69 6c 65 2d | *." [in|it-file-|
|00000600| 6c 6f 61 64 65 64 20 73 | 65 6c 65 63 74 65 64 2d |loaded s|elected-|
|00000610| 63 6f 6e 73 6f 6c 65 20 | 66 6f 6f 62 61 72 20 28 |console |foobar (|
|00000620| 28 73 65 6c 65 63 74 2d | 63 6f 6e 73 6f 6c 65 20 |(select-|console |
|00000630| 66 6f 6f 62 61 72 29 29 | 20 73 65 6c 65 63 74 2d |foobar))| select-|
|00000640| 63 6f 6e 73 6f 6c 65 20 | 63 6f 6e 73 6f 6c 65 20 |console |console |
|00000650| 6c 6f 61 64 2d 74 65 72 | 6d 69 6e 61 6c 2d 6c 69 |load-ter|minal-li|
|00000660| 62 72 61 72 79 5d 20 32 | 20 28 23 24 20 2e 20 31 |brary] 2| (#$ . 1|
|00000670| 33 39 38 29 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |398)]).(|byte-cod|
|00000680| 65 20 22 c0 c1 21 ac 82 | c2 11 c1 0b 42 13 c2 87 |e "..!..|....B...|
|00000690| 22 20 5b 62 6f 75 6e 64 | 70 20 74 74 79 2d 77 69 |" [bound|p tty-wi|
|000006a0| 6e 2d 69 6e 69 74 74 65 | 64 20 6e 69 6c 20 63 75 |n-initte|d nil cu|
|000006b0| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 5d |rrent-lo|ad-list]|
|000006c0| 20 32 29 0a 23 40 34 36 | 20 49 6e 69 74 69 61 6c | 2).#@46| Initial|
|000006d0| 69 7a 65 20 54 54 59 20 | 61 74 20 73 74 61 72 74 |ize TTY |at start|
|000006e0| 75 70 2e 20 20 44 6f 6e | 27 74 20 63 61 6c 6c 20 |up.  Don|'t call |
|000006f0| 74 68 69 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |this...(|defalias|
|00000700| 20 27 69 6e 69 74 2d 74 | 74 79 2d 77 69 6e 20 23 | 'init-t|ty-win #|
|00000710| 5b 6e 69 6c 20 22 08 3f | ad 90 c1 20 88 c2 c3 89 |[nil ".?|... ....|
|00000720| 5c 22 88 c4 c5 20 21 88 | c6 89 10 87 22 20 5b 74 |\"... !.|...." [t|
|00000730| 74 79 2d 77 69 6e 2d 69 | 6e 69 74 74 65 64 20 69 |ty-win-i|nitted i|
|00000740| 6e 69 74 2d 70 72 65 2d | 74 74 79 2d 77 69 6e 20 |nit-pre-|tty-win |
|00000750| 6d 61 6b 65 2d 74 74 79 | 2d 64 65 76 69 63 65 20 |make-tty|-device |
|00000760| 6e 69 6c 20 69 6e 69 74 | 2d 70 6f 73 74 2d 74 74 |nil init|-post-tt|
|00000770| 79 2d 77 69 6e 20 73 65 | 6c 65 63 74 65 64 2d 63 |y-win se|lected-c|
|00000780| 6f 6e 73 6f 6c 65 20 74 | 5d 20 33 20 28 23 24 20 |onsole t|] 3 (#$ |
|00000790| 2e 20 31 37 33 37 29 5d | 29 0a 23 40 34 33 36 20 |. 1737)]|).#@436 |
|000007a0| 43 72 65 61 74 65 20 61 | 20 66 72 61 6d 65 20 6f |Create a| frame o|
|000007b0| 6e 20 74 68 65 20 54 54 | 59 20 63 6f 6e 6e 65 63 |n the TT|Y connec|
|000007c0| 74 69 6f 6e 20 6e 61 6d | 65 64 20 54 54 59 2e 0a |tion nam|ed TTY..|
|000007d0| 54 54 59 20 73 68 6f 75 | 6c 64 20 62 65 20 61 20 |TTY shou|ld be a |
|000007e0| 54 54 59 20 64 65 76 69 | 63 65 20 6e 61 6d 65 20 |TTY devi|ce name |
|000007f0| 73 75 63 68 20 61 73 20 | 22 2f 64 65 76 2f 74 74 |such as |"/dev/tt|
|00000800| 79 70 33 22 20 28 61 73 | 20 72 65 74 75 72 6e 65 |yp3" (as| returne|
|00000810| 64 20 62 79 0a 74 68 65 | 20 60 74 74 79 27 20 63 |d by.the| `tty' c|
|00000820| 6f 6d 6d 61 6e 64 20 69 | 6e 20 74 68 61 74 20 54 |ommand i|n that T|
|00000830| 54 59 29 2c 20 6f 72 20 | 6e 69 6c 20 66 6f 72 20 |TY), or |nil for |
|00000840| 74 68 65 20 73 74 61 6e | 64 61 72 64 20 69 6e 70 |the stan|dard inp|
|00000850| 75 74 2f 6f 75 74 70 75 | 74 0a 6f 66 20 74 68 65 |ut/outpu|t.of the|
|00000860| 20 72 75 6e 6e 69 6e 67 | 20 58 45 6d 61 63 73 20 | running| XEmacs |
|00000870| 70 72 6f 63 65 73 73 2e | 0a 0a 50 52 4f 50 53 20 |process.|..PROPS |
|00000880| 73 68 6f 75 6c 64 20 62 | 65 20 61 20 70 6c 69 73 |should b|e a plis|
|00000890| 74 20 6f 66 20 70 72 6f | 70 65 72 74 69 65 73 2c |t of pro|perties,|
|000008a0| 20 61 73 20 69 6e 20 74 | 68 65 20 63 61 6c 6c 20 | as in t|he call |
|000008b0| 74 6f 20 60 6d 61 6b 65 | 2d 66 72 61 6d 65 27 2e |to `make|-frame'.|
|000008c0| 0a 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |..This f|unction |
|000008d0| 6f 70 65 6e 73 20 61 20 | 63 6f 6e 6e 65 63 74 69 |opens a |connecti|
|000008e0| 6f 6e 20 74 6f 20 74 68 | 65 20 54 54 59 20 6f 72 |on to th|e TTY or|
|000008f0| 20 72 65 75 73 65 73 20 | 61 6e 20 65 78 69 73 74 | reuses |an exist|
|00000900| 69 6e 67 0a 63 6f 6e 6e | 65 63 74 69 6f 6e 2e 0a |ing.conn|ection..|
|00000910| 0a 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 69 |.This fu|nction i|
|00000920| 73 20 61 20 74 72 69 76 | 69 61 6c 20 77 72 61 70 |s a triv|ial wrap|
|00000930| 70 65 72 20 61 72 6f 75 | 6e 64 20 60 6d 61 6b 65 |per arou|nd `make|
|00000940| 2d 66 72 61 6d 65 2d 6f | 6e 2d 64 65 76 69 63 65 |-frame-o|n-device|
|00000950| 27 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |'...(def|alias 'm|
|00000960| 61 6b 65 2d 66 72 61 6d | 65 2d 6f 6e 2d 74 74 79 |ake-fram|e-on-tty|
|00000970| 20 23 5b 28 74 74 79 20 | 26 6f 70 74 69 6f 6e 61 | #[(tty |&optiona|
|00000980| 6c 20 70 72 6f 70 73 29 | 20 22 08 c1 6b ab 82 c2 |l props)| "..k...|
|00000990| 10 c3 c0 08 0c 23 87 22 | 20 5b 74 74 79 20 22 22 |.....#."| [tty ""|
|000009a0| 20 6e 69 6c 20 6d 61 6b | 65 2d 66 72 61 6d 65 2d | nil mak|e-frame-|
|000009b0| 6f 6e 2d 64 65 76 69 63 | 65 20 70 72 6f 70 73 5d |on-devic|e props]|
|000009c0| 20 34 20 28 23 24 20 2e | 20 31 39 35 32 29 20 22 | 4 (#$ .| 1952) "|
|000009d0| 73 4d 61 6b 65 20 66 72 | 61 6d 65 20 6f 6e 20 54 |sMake fr|ame on T|
|000009e0| 54 59 3a 20 22 5d 29 0a |                         |TY: "]).|        |
+--------+-------------------------+-------------------------+--------+--------+